home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: New Zealand Amiga Users Group
/
New Zealand Amiga Users Group Newsdisk v03 (1987-02)(NZAmigaUG).zip
/
New Zealand Amiga Users Group Newsdisk v03 (1987-02)(NZAmigaUG).adf
/
BASIC
/
Bands
< prev
next >
Wrap
Text File
|
1993-12-02
|
565b
|
22 lines
10 DIM a%(5000):CLS
PRINT "Drag the Mouse"
20 GOSUB 1000
30 GET(x1%,y1%)-(x2%,y2%),a%
35 x%=MOUSE(1):y%=MOUSE(2):b%=MOUSE(0)
37 IF b% = 0 GOTO 35
40 PUT(x%,y%),a%
50 GOTO 20
1000 '
1010 x1%=MOUSE(1):y1%=MOUSE(2):b%=MOUSE(0)
1020 IF b% = 0 GOTO 1010
1025 x2% = x1% : y2% = y1%
1030 x%=MOUSE(1):y%=MOUSE(2):b%=MOUSE(0)
1035 IF x% = x2% AND y% = y2% GOTO 1030
1040 LINE(x1%,y1%)-(x2%,y2%),2,b
1045 x2% = x% : y2% = y%
1047 LINE(x1%,y1%)-(x2%,y2%),2,b
1050 IF b% <> 0 GOTO 1030
1065 LINE(x1%,y1%)-(x2%,y2%),2,b
1067
1070 RETURN